﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>
<card title="江湖银行">
<p>
<%
dim myid
myid=qingtian.nid
Server.ScriptTimeout=999
set rs=Server.CreateObject("ADODB.Recordset")
strsQL="select yz,jk from wupin where cstr(ids)="&myid
rs.open strsQL,liao
jk=rs("jk")
  rs.Close
	Set rs=Nothing
%>
提取银子
<br/>--------<br/>
您银行有银子<%=jk%>两.
<br/>请问您要提取多少两银子呢?
<br/>我要提取<input name="num" size="3" format="*N" value="0" /><anchor>两银子<go method="post" href="bankpcl.asp?cc=<%=cc%>&amp;ve=<%=ve%>">
<postfield name="num" value="$(num)"/>
</go></anchor><br/>
---------<br/>
<a href="yz.asp?cc=<%=cc%>&amp;ve=<%=ve%>">江湖银号</a><br/>
<a href="index.asp?cc=<%=cc%>&amp;ve=<%=ve%>">江湖首页</a><br/>
<%qingtian.shuchu%>